APDL Eductation Resources/APDL Eductation Resources.iso/programs/graphics/turtle_2/Procedures/MOVE

Text File | 1991-08-04 | 2.0 KB | 210 lines

SQ
REPEAT 4
FORWARD NM
RIGHT 90
END REPEAT
END

GROW
CS
DI
PD
REPEAT 10
NUMBER 5
GROW1
END REPEAT
DI
END

GROW1
REPEAT 20
COLOUR RND(14)+1
SQ
COLOUR 0
SQ
NUMBER NM+5
END REPEAT
END

INOUT
CS
DI
PD
REPEAT 6
NUMBER 140
INOUT1
RIGHT 180
END REPEAT
DI
END

INOUT1
REPEAT 56
COLOUR RND(14)+1
SQ
COLOUR 0
SQ
NUMBER NM-5
END REPEAT
END

EYES
CS
DISPLAY
OSCLI SCREENLOAD PICeyes
PEN UP
FORWARD 10
CURSOR RIGHT 40
REPEAT 10
CURSOR RIGHT 40
FOUR
CURSOR RIGHT -40
FOUR
END REPEAT
CO 0
CR 40
TWO
DI
END

FOUR
COLOUR 0
TWO
REPEAT 100
FORWARD 0
END REPEAT
COLOUR 7
TWO
END

TWO
PEN DOWN
FILL
CIRCLE 14
END FILL
PEN UP
CURSOR RIGHT -120
PEN DOWN
FILL
CIRCLE 14
END FILL
PEN UP
CURSOR RIGHT 120
END

SQU
REPEAT 4
FORWARD 30
RIGHT 90
END REPEAT
END

MOVE1
CS
DISPLAY
REPEAT 72
COLOUR 1
SQU
COLOUR 0
SQU
PEN UP
FORWARD 5
RIGHT 5
PEN DOWN
END REPEAT
COLOUR 1
SQU
DI
END

MOVE2
CS
DI
REPEAT 20
COLOUR RND(14)+1
FILL
CIRCLE 30
COLOUR 0
CIRCLE 31
FORWARD RND(20)
RIGHT RND(360)
END REPEAT
COLOUR 1
FILL
CIRCLE 30
DI
END

PUSH
REPEAT 20
COLOUR RND(14)+1
SQU
COLOUR 0
SQU
CURSOR RIGHT 10
END REPEAT
REPEAT 20
COLOUR 1
SQU
COLOUR 0
SQU
CURSOR RIGHT -10
END REPEAT
END

PULL
DI
CS
PEN UP
CURSOR RIGHT -100
PEN DOWN
REPEAT 8
PUSH
END REPEAT
COLOUR 1
SQU
DI
END

INFO
CLEAR
DISPLAY
COLOUR 3
PEN UP
LEFT 90
FORWARD 100
RIGHT 90
FORWARD 70
WRITE MOVE
BACKWARDS 15
WRITE It is possible to use !TURTLE to make things move.
BACKWARDS 10
WRITE This can be done by drawing an object, rubbing it
BACKWARDS 10
WRITE  out (or drawing it in the same position and in the
MORE
END

MORE
BACKWARDS 10
WRITE same colour as the background), then drawing it
BACKWARDS 10
WRITE again in a slightly different position.
BACKWARDS 10
WRITE  If this is repeated many times and quickly
BACKWARDS 10
WRITE it gives the appearance of movement.
BACKWARDS 15
MORE2
END

MORE2
WRITE To see an example of animation type MOVE1 <return>.
BACKWARDS 15
WRITE Other examples are MOVE2, PULL, EYES, GROW
BACKWARDS 10
WRITE and INOUT.
BACKWARDS 20
DISPLAY
END